df <- data.frame(var = 1:10)

write.csv(df, 'test/output/output.csv')

print('Test script complete')